home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / dev / e / energy.lha / Energy / PD / ListKick.e < prev   
Text File  |  1996-05-20  |  907b  |  49 lines
  1. /* ListKick: List all the contents of the KickStart
  2.    AMIGA E v3.2e:     20-05-96
  3.    Author:   Marco Talamelli
  4.    E-Mail:   marco_talamelli@amp.flashnet.it
  5. */
  6.  
  7. DEF string[3]:STRING
  8.  
  9. PROC main()
  10.  
  11. DEF     romstart[3]:STRING,romend=$00FFFFFF,len=$00FFFFEC,c,start,j,count
  12.  
  13. romstart:=romend-^len+1
  14.  
  15. WriteF('\nROMstart:\h\nROMend  : \h\n',romstart,romend)
  16. WriteF('Kickstart Version \d.\d\n\n',Int(romstart+$0c),Int(romstart+$0e))
  17.  
  18. FOR romstart:=romstart TO romend
  19.  
  20. IF romstart[0]=$4A AND romstart[1]=$FC
  21.     c:=romstart
  22.     romstart:=romstart+2
  23.         IF c=^romstart
  24.             WriteF('$\h ',c)
  25.             romstart:=romstart+16
  26.             start:=^romstart
  27.             j:=^start
  28.             string:={j}
  29.             count:=0
  30.             WriteF('\e[32m')
  31.             WHILE (string[count]<>$0d)
  32.                     WriteF('\c',string[count])
  33.             INC count
  34.                 IF count=4
  35.                     start:=start+4
  36.                     j:=^start
  37.                     string:={j}
  38.                     count:=0
  39.                 ENDIF
  40.             ENDWHILE
  41.                 WriteF('\e[31m\n')
  42.         ENDIF
  43.  
  44. ENDIF
  45.  
  46. ENDFOR
  47.  
  48. ENDPROC
  49.